﻿Public Class FeuerkrafttabellePanzer120
    Inherits Angriffstabelle
    Public Overrides Function GetWert(ByVal Name As String) As Integer
        Dim E As ObjektEinheit = GetUnit(Name)
        If E.MinimaleReichweite = 1 And E.MaximaleReichweite = 1 Then
            If E.Bewegungsart.ToUpper = MovementSorts.Fuss.ToString.ToUpper Then
                Return 100
            ElseIf E.Bewegungsart.ToUpper = MovementSorts.Mech.ToString.ToUpper Then
                Return 100
            ElseIf E.Bewegungsart.ToUpper = MovementSorts.Motorreifen.ToString.ToUpper Then
                Return 100
            Else
                Return 120
            End If
        Else
            Return 90
        End If
    End Function
    Public Overrides Function ToString() As String
        Return "nahkampf|120|100|90"
    End Function
End Class
Public Class FeuerkrafttabellePanzer140
    Inherits Angriffstabelle
    Public Overrides Function GetWert(ByVal Name As String) As Integer
        Dim E As ObjektEinheit = GetUnit(Name)
        If E.MinimaleReichweite = 1 And E.MaximaleReichweite = 1 Then
            If E.Bewegungsart.ToUpper = MovementSorts.Fuss.ToString.ToUpper Then
                Return 100
            ElseIf E.Bewegungsart.ToUpper = MovementSorts.Mech.ToString.ToUpper Then
                Return 100
            ElseIf E.Bewegungsart.ToUpper = MovementSorts.Motorreifen.ToString.ToUpper Then
                Return 100
            Else
                Return 140
            End If
        Else
            Return 90
        End If
    End Function
    Public Overrides Function ToString() As String
        Return "nahkampf|140|100|90"
    End Function
End Class
Public Class FeuerkrafttabellePanzer150
    Inherits Angriffstabelle
    Public Overrides Function GetWert(ByVal Name As String) As Integer
        Dim E As ObjektEinheit = GetUnit(Name)
        If E.MinimaleReichweite = 1 And E.MaximaleReichweite = 1 Then
            If E.Bewegungsart.ToUpper = MovementSorts.Fuss.ToString.ToUpper Then
                Return 100
            ElseIf E.Bewegungsart.ToUpper = MovementSorts.Mech.ToString.ToUpper Then
                Return 100
            ElseIf E.Bewegungsart.ToUpper = MovementSorts.Motorreifen.ToString.ToUpper Then
                Return 100
            Else
                Return 150
            End If
        Else
            Return 90
        End If
    End Function
    Public Overrides Function ToString() As String
        Return "nahkampf|150|100|90"
    End Function
End Class
Public Class FeuerkrafttabellePanzer170
    Inherits Angriffstabelle
    Public Overrides Function GetWert(ByVal Name As String) As Integer
        Dim E As ObjektEinheit = GetUnit(Name)
        If E.MinimaleReichweite = 1 And E.MaximaleReichweite = 1 Then
            If E.Bewegungsart.ToUpper = MovementSorts.Fuss.ToString.ToUpper Then
                Return 100
            ElseIf E.Bewegungsart.ToUpper = MovementSorts.Mech.ToString.ToUpper Then
                Return 100
            ElseIf E.Bewegungsart.ToUpper = MovementSorts.Motorreifen.ToString.ToUpper Then
                Return 100
            Else
                Return 170
            End If
        Else
            Return 90
        End If
    End Function
    Public Overrides Function ToString() As String
        Return "nahkampf|170|100|90"
    End Function
End Class
Public Class FeuerkrafttabellePanzer190
    Inherits Angriffstabelle
    Public Overrides Function GetWert(ByVal Name As String) As Integer
        Dim E As ObjektEinheit = GetUnit(Name)
        If E.MinimaleReichweite = 1 And E.MaximaleReichweite = 1 Then
            If E.Bewegungsart.ToUpper = MovementSorts.Fuss.ToString.ToUpper Then
                Return 100
            ElseIf E.Bewegungsart.ToUpper = MovementSorts.Mech.ToString.ToUpper Then
                Return 100
            ElseIf E.Bewegungsart.ToUpper = MovementSorts.Motorreifen.ToString.ToUpper Then
                Return 100
            Else
                Return 190
            End If
        Else
            Return 90
        End If
    End Function
    Public Overrides Function ToString() As String
        Return "nahkampf|190|100|90"
    End Function
End Class
Public Class FeuerkrafttabellePanzer120OhneSchwaeche
    Inherits Angriffstabelle
    Public Overrides Function GetWert(ByVal Name As String) As Integer
        Dim E As ObjektEinheit = GetUnit(Name)
        If E.MinimaleReichweite = 1 And E.MaximaleReichweite = 1 Then
            If E.Bewegungsart.ToUpper = MovementSorts.Ketten.ToString.ToUpper Then
                Return 120
            ElseIf E.Bewegungsart.ToUpper = MovementSorts.Reifen.ToString.ToUpper Then
                Return 120
            Else
                Return 100
            End If
        Else
            Return 100
        End If
    End Function
    Public Overrides Function ToString() As String
        Return "nahkampf|120|100|100"
    End Function
End Class
Public Class FeuerkrafttabellePanzer110OhneSchwaeche
    Inherits Angriffstabelle
    Public Overrides Function GetWert(ByVal Name As String) As Integer
        Dim E As ObjektEinheit = GetUnit(Name)
        If E.MinimaleReichweite = 1 And E.MaximaleReichweite = 1 Then
            If E.Bewegungsart.ToUpper = MovementSorts.Ketten.ToString.ToUpper Then
                Return 110
            ElseIf E.Bewegungsart.ToUpper = MovementSorts.Reifen.ToString.ToUpper Then
                Return 110
            Else
                Return 100
            End If
        Else
            Return 100
        End If
    End Function
    Public Overrides Function ToString() As String
        Return "nahkampf|110|100|100"
    End Function
End Class
Public Class FeuerkrafttabellePanzer140OhneSchwaeche
    Inherits Angriffstabelle
    Public Overrides Function GetWert(ByVal Name As String) As Integer
        Dim E As ObjektEinheit = GetUnit(Name)
        If E.MinimaleReichweite = 1 And E.MaximaleReichweite = 1 Then
            If E.Bewegungsart.ToUpper = MovementSorts.Ketten.ToString.ToUpper Then
                Return 140
            ElseIf E.Bewegungsart.ToUpper = MovementSorts.Reifen.ToString.ToUpper Then
                Return 140
            Else
                Return 100
            End If
        Else
            Return 100
        End If
    End Function
    Public Overrides Function ToString() As String
        Return "nahkampf|140|100|100"
    End Function
End Class